home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 March / 1986-03.d64 / survivor 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  34 lines
  1. 100 ifa=0thena=1:print"[147]"spc(14)"loading ml":load"survivor 2",8,1
  2. 110 poke56,32:poke55,0:clr
  3. 120 print"[147]":z=2:bc=53280:bk=53281:c$(1)="[149]":c$(2)="[129]":c$(3)="":a$=chr$(148)
  4. 130 t1=0
  5. 140 ifa$=chr$(129)thena$=chr$(28):goto160
  6. 150 a$=chr$(129)
  7. 160 printa$:print"   ";
  8. 170 pokebc,0:pokebk,0:u$="                             ":m$="[161][146][161][161][146][161]"
  9. 180 print"    [146]"spc(35)"  [146]    [146]"spc(34)"  [146]     "m$u$"     [146]  "m$"[161][172][187]";
  10. 190 print"[146][187]"u$"  [146] "m$"[161][188][190][146][190]"m$spc(21)"  [146]    [146]  [162][162][146] [161][172][188][146] "m$" [187][172][146]";
  11. 200 printspc(19)"    [146]      [188][190][188][190][188][188][190][146][190] [161][146][161] "m$u$"[188][190]  [161][146][161] "m$"[172][172][187][146][187]"u$"[162][162]";
  12. 210 print"[146] [188][188][190][146][190][161][146][161][161][146][161][161][172][187][146][187]"u$"[188][190] "m$"[161][188][190][146][190]"spc(33)"[162][162][146] [161][172][188][146][157][157][157][188][190][188][190]"
  13. 220 printspc(4)" press fire button to play"
  14. 230 if((peek(56320)andpeek(56321))and16)<>16thenpokebc,12:goto250
  15. 240 goto140
  16. 250 gosub350:print"[147]";:l$=c$+"       [146]":printl$spc(33);:forx=1to5:forz=1to3
  17. 260 gosub350:printl$"[144] ";
  18. 270 printc$(z)"   [146][144] "c$(z)"   [146][144] "c$(z)"   [146][144] "c$(z)"   [146][144] "c$(z);
  19. 280 print"   [146][144] "c$(z)"   [146][144] "c$(z)"   [146][144] "c$(z)"   [146][144][160]";:nextz
  20. 290 ifmtthengosub350:printl$"[144]                                [157]"a$" ";:goto320
  21. 300 gosub350
  22. 310 printl$"[146][144]                                 ";:nextx:mt=1:forz=1to3:goto260
  23. 320 c$="[158]":gosub340:print"":c$="[159]":gosub340
  24. 330 sys10240:goto360
  25. 340 print""c$"lives[157][157][157][152]5"c$"[157][157][157]shots[152]";:return
  26. 350 c$="[152]":return
  27. 360 print""spc(19)"[146]game over"
  28. 370 if(peek(870)-176)thent2=8+(peek(878)=0):goto390
  29. 380 t2=4+(peek(878)=0)
  30. 390 fori=1to9:pokebk,t2:forj=1to50:nextj:pokebk,t1:forj=1to50:nextj,i
  31. 400 print""spc(8)"press fire button to play again"
  32. 410 if((peek(56320)andpeek(56321))and16)<>16then330
  33. 420 goto410
  34.